perm filename TRACE[1,JRA] blob
sn#005829 filedate 1972-08-11 generic text, type T, neo UTF8
00100
00200
00300 (DEFPROP %%TRACE1
00400 (LAMBDA(%%NAM %%ARGS %%CNTR %%FUN %%F)
00500 (PROG (%%V %%V1)
00550 (SETQ %%V1(TIME))
00600 (PRINT (LIST (QUOTE ENTERING)(EVAL %%CNTR) %%NAM))
00700 (OR %%F (SETQ %%ARGS (EVAL (CONS (QUOTE LIST) %%ARGS))))
00800 (COND ((EQUAL (CHRCT) (LINELENGTH NIL)) (TERPRI NIL)))
00900 (SETQ %%V (COND (%%F (EVAL (CONS %%FUN %%ARGS))) (T (APPLY (QUOTE %%FUN) %%ARGS))))
00950 (SET %%CNTR(PLUS(EVAL %%CNTR)(DIFFERENCE (TIME) %%V1)))
01000 (RETURN (TERPRI (%%VAL (QUOTE %%V))))))
01100 EXPR)